0 REM << RR20-3 >>
1 PRINT"[147]":POKE53280,0:POKE53281,6:POKE646,1
2 REM  -- BIRTHDAY SIMULATOR --
3 REM      RUPERT REPORT #20
4 REM
10 REM - SIMULATE GROUPS OF PEOPLE WITH
11 REM   RANDOMLY CHOSEN BIRTHDAYS.
12 REM   EACH GROUP CONTAINS 'NUMP'
13 REM   PEOPLE.  BDAY(X) IS THE
14 REM   BIRTHDAY (1-366) OF THE XTH
15 REM   PERSON.  CT(X) IS THE COUNT OF
16 REM   HOW MANY PEOPLE IN THE GROUP
17 REM   HAVE DAY X AS THEIR BIRTHDAY.
18 REM   SUCCESS=1 IF TWO PEOPLE IN
19 REM   ONE GROUP HAVE THE SAME
20 REM   BIRTHDAY.
21 REM
30 NUMP=24  :REM << CHANGE THIS
40 DIM BDAY(NUMP),CT(366)
50 GROUP=1
60 SUCCESS=0
65 REM - RESET COUNT OF USED BIRTHDAYS
70 FOR PERSN=1 TO NUMP
80 CT(BDAY(PERSN))=0 : NEXT
85 REM - CHOOSE EACH PERSON'S BIRTHDAY
90 FOR PERSN=1 TO NUMP
100 DAY=INT(366*RND(0))+1
110 BDAY(PERSN)=DAY
120 CT(DAY)=CT(DAY)+1
130 NEXT PERSN
135 REM - CHECK FOR DUPLICATES
140 FOR PERSN=1 TO NUMP
150 IF CT(BDAY(PERSN))<2 THEN 180
160 SUCCESS=1
170 PERSN=NUMP
180 NEXT PERSN
190 IF SUCCESS=1 THEN TTL=TTL+1
200 PRINT GROUP"GROUPS    ";
210 PRINT TTL*100/GROUP"% SUCCESS"
220 GROUP=GROUP+1 : GOTO 60